Option Explicit
Sub A_Sample009()
    Dim myRng1 As Range
    Dim myRng2 As Range
    Set myRng1 = Range("A1:C5")         'Nxsd
    'ǳƨ즹
    With myRng1
        Set myRng2 = .Cells(.Cells.Count)
    End With
    MsgBox myRng2.Address
    Set myRng1 = Nothing                '
    Set myRng2 = Nothing
End Sub
